//+------------------------------------------------------------------+
//| Digital High Pass (KGHP) Filter                                  |
//| Created by newdigital                                            |
//| Using the Generator of Digital Filters                           |
//| http://www.forex-tsd.com/                                        |
//+------------------------------------------------------------------+
#property copyright "newdigital"
#property link      "http://www.forex-tsd.com/"
/*I wanted to create the KGHP digital filter and was failed.
But when I attached this indicator to the indicator window together
with other filters (in one indicator window) I recognized that 
it is great indicator. It follows the price and seems it is like 
the price curve in the indicator window. Just attach an other filter to
the same window and this KGHP indicator will be as price curve.
It is very easy to analyze everything.*/
// --- Parameters: P1=30, D1=29, A1=40
// --- P2=52, D2=31, A2=40, Ripple=0.08, Delay=0
// --- Order [Auto]=858, Calculate method=2

#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 Red

//---- buffers
double FilterBuffer[];

//+------------------------------------------------------------------+
//| Digital filter indicator initialization function                 |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- indicator line
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,FilterBuffer);
SetIndexDrawBegin(0,858);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Digital filter main function                                     |
//+------------------------------------------------------------------+
int start()
{
int i,counted_bars=IndicatorCounted();
double response;
//----
if(Bars<=858) return(0);
//---- initial zero
if(counted_bars<858)
for(i=1;i<=0;i++) FilterBuffer[Bars-i]=0.0;
//----
i=Bars-858-1;
if(counted_bars>=858) i=Bars-counted_bars-1;
while(i>=0)
{
response=
 1.000000000000*Close[i+0]
 +0.000000000000000039*Close[i+1]
 -0.000000000000000038*Close[i+2]
 +0.000000000000000038*Close[i+3]
 -0.000000000000000039*Close[i+4]
 +0.000000000000000039*Close[i+5]
 -0.000000000000000039*Close[i+6]
 +0.000000000000000038*Close[i+7]
 -0.000000000000000039*Close[i+8]
 +0.000000000000000039*Close[i+9]
 -0.000000000000000039*Close[i+10]
 +0.000000000000000038*Close[i+11]
 -0.000000000000000039*Close[i+12]
 +0.000000000000000039*Close[i+13]
 -0.000000000000000039*Close[i+14]
 +0.000000000000000038*Close[i+15]
 -0.000000000000000039*Close[i+16]
 +0.000000000000000039*Close[i+17]
 -0.000000000000000039*Close[i+18]
 +0.000000000000000038*Close[i+19]
 -0.000000000000000039*Close[i+20]
 +0.000000000000000039*Close[i+21]
 -0.000000000000000038*Close[i+22]
 +0.000000000000000039*Close[i+23]
 -0.000000000000000039*Close[i+24]
 +0.000000000000000039*Close[i+25]
 -0.000000000000000039*Close[i+26]
 +0.000000000000000038*Close[i+27]
 -0.000000000000000039*Close[i+28]
 +0.000000000000000039*Close[i+29]
 -0.000000000000000039*Close[i+30]
 +0.000000000000000038*Close[i+31]
 -0.000000000000000039*Close[i+32]
 +0.000000000000000039*Close[i+33]
 -0.000000000000000039*Close[i+34]
 +0.000000000000000039*Close[i+35]
 -0.000000000000000039*Close[i+36]
 +0.000000000000000039*Close[i+37]
 -0.000000000000000039*Close[i+38]
 +0.000000000000000039*Close[i+39]
 -0.000000000000000039*Close[i+40]
 +0.000000000000000039*Close[i+41]
 -0.000000000000000039*Close[i+42]
 +0.000000000000000039*Close[i+43]
 -0.000000000000000039*Close[i+44]
 +0.000000000000000039*Close[i+45]
 -0.000000000000000039*Close[i+46]
 +0.000000000000000039*Close[i+47]
 -0.000000000000000039*Close[i+48]
 +0.000000000000000039*Close[i+49]
 -0.000000000000000039*Close[i+50]
 +0.000000000000000039*Close[i+51]
 -0.000000000000000039*Close[i+52]
 +0.000000000000000039*Close[i+53]
 -0.000000000000000039*Close[i+54]
 +0.000000000000000039*Close[i+55]
 -0.000000000000000039*Close[i+56]
 +0.000000000000000039*Close[i+57]
 -0.000000000000000039*Close[i+58]
 +0.000000000000000039*Close[i+59]
 -0.000000000000000039*Close[i+60]
 +0.000000000000000039*Close[i+61]
 -0.000000000000000039*Close[i+62]
 +0.000000000000000039*Close[i+63]
 -0.000000000000000039*Close[i+64]
 +0.000000000000000039*Close[i+65]
 -0.000000000000000039*Close[i+66]
 +0.000000000000000039*Close[i+67]
 -0.000000000000000039*Close[i+68]
 +0.000000000000000039*Close[i+69]
 -0.000000000000000039*Close[i+70]
 +0.000000000000000039*Close[i+71]
 -0.000000000000000039*Close[i+72]
 +0.000000000000000039*Close[i+73]
 -0.000000000000000039*Close[i+74]
 +0.000000000000000039*Close[i+75]
 -0.000000000000000039*Close[i+76]
 +0.000000000000000039*Close[i+77]
 -0.000000000000000039*Close[i+78]
 +0.000000000000000039*Close[i+79]
 -0.000000000000000039*Close[i+80]
 +0.000000000000000039*Close[i+81]
 -0.000000000000000039*Close[i+82]
 +0.000000000000000039*Close[i+83]
 -0.000000000000000039*Close[i+84]
 +0.000000000000000039*Close[i+85]
 -0.000000000000000039*Close[i+86]
 +0.000000000000000039*Close[i+87]
 -0.000000000000000039*Close[i+88]
 +0.000000000000000039*Close[i+89]
 -0.000000000000000039*Close[i+90]
 +0.000000000000000039*Close[i+91]
 -0.000000000000000039*Close[i+92]
 +0.000000000000000039*Close[i+93]
 -0.000000000000000039*Close[i+94]
 +0.000000000000000039*Close[i+95]
 -0.000000000000000039*Close[i+96]
 +0.000000000000000039*Close[i+97]
 -0.000000000000000039*Close[i+98]
 +0.000000000000000039*Close[i+99]
 -0.000000000000000039*Close[i+100]
 +0.000000000000000039*Close[i+101]
 -0.000000000000000039*Close[i+102]
 +0.000000000000000039*Close[i+103]
 -0.000000000000000039*Close[i+104]
 +0.000000000000000039*Close[i+105]
 -0.000000000000000039*Close[i+106]
 +0.000000000000000039*Close[i+107]
 -0.000000000000000039*Close[i+108]
 +0.000000000000000039*Close[i+109]
 -0.000000000000000039*Close[i+110]
 +0.000000000000000039*Close[i+111]
 -0.000000000000000039*Close[i+112]
 +0.000000000000000039*Close[i+113]
 -0.000000000000000039*Close[i+114]
 +0.000000000000000039*Close[i+115]
 -0.000000000000000039*Close[i+116]
 +0.000000000000000039*Close[i+117]
 -0.000000000000000039*Close[i+118]
 +0.000000000000000039*Close[i+119]
 -0.000000000000000039*Close[i+120]
 +0.000000000000000039*Close[i+121]
 -0.000000000000000039*Close[i+122]
 +0.000000000000000039*Close[i+123]
 -0.000000000000000039*Close[i+124]
 +0.000000000000000039*Close[i+125]
 -0.000000000000000039*Close[i+126]
 +0.000000000000000039*Close[i+127]
 -0.000000000000000039*Close[i+128]
 +0.000000000000000039*Close[i+129]
 -0.000000000000000039*Close[i+130]
 +0.000000000000000039*Close[i+131]
 -0.000000000000000039*Close[i+132]
 +0.000000000000000039*Close[i+133]
 -0.000000000000000039*Close[i+134]
 +0.000000000000000039*Close[i+135]
 -0.000000000000000039*Close[i+136]
 +0.000000000000000039*Close[i+137]
 -0.000000000000000039*Close[i+138]
 +0.000000000000000039*Close[i+139]
 -0.000000000000000039*Close[i+140]
 +0.000000000000000039*Close[i+141]
 -0.000000000000000039*Close[i+142]
 +0.000000000000000039*Close[i+143]
 -0.000000000000000039*Close[i+144]
 +0.000000000000000039*Close[i+145]
 -0.000000000000000039*Close[i+146]
 +0.000000000000000039*Close[i+147]
 -0.000000000000000039*Close[i+148]
 +0.000000000000000039*Close[i+149]
 -0.000000000000000039*Close[i+150]
 +0.000000000000000039*Close[i+151]
 -0.000000000000000039*Close[i+152]
 +0.000000000000000039*Close[i+153]
 -0.000000000000000039*Close[i+154]
 +0.000000000000000039*Close[i+155]
 -0.000000000000000039*Close[i+156]
 +0.000000000000000039*Close[i+157]
 -0.000000000000000039*Close[i+158]
 +0.000000000000000039*Close[i+159]
 -0.000000000000000039*Close[i+160]
 +0.000000000000000039*Close[i+161]
 -0.000000000000000039*Close[i+162]
 +0.000000000000000039*Close[i+163]
 -0.000000000000000039*Close[i+164]
 +0.000000000000000039*Close[i+165]
 -0.000000000000000039*Close[i+166]
 +0.000000000000000039*Close[i+167]
 -0.000000000000000039*Close[i+168]
 +0.000000000000000039*Close[i+169]
 -0.000000000000000039*Close[i+170]
 +0.000000000000000039*Close[i+171]
 -0.000000000000000039*Close[i+172]
 +0.000000000000000039*Close[i+173]
 -0.000000000000000039*Close[i+174]
 +0.000000000000000039*Close[i+175]
 -0.000000000000000039*Close[i+176]
 +0.000000000000000040*Close[i+177]
 -0.000000000000000039*Close[i+178]
 +0.000000000000000039*Close[i+179]
 -0.000000000000000039*Close[i+180]
 +0.000000000000000039*Close[i+181]
 -0.000000000000000039*Close[i+182]
 +0.000000000000000039*Close[i+183]
 -0.000000000000000039*Close[i+184]
 +0.000000000000000039*Close[i+185]
 -0.000000000000000039*Close[i+186]
 +0.000000000000000039*Close[i+187]
 -0.000000000000000039*Close[i+188]
 +0.000000000000000039*Close[i+189]
 -0.000000000000000039*Close[i+190]
 +0.000000000000000039*Close[i+191]
 -0.000000000000000039*Close[i+192]
 +0.000000000000000039*Close[i+193]
 -0.000000000000000039*Close[i+194]
 +0.000000000000000039*Close[i+195]
 -0.000000000000000039*Close[i+196]
 +0.000000000000000039*Close[i+197]
 -0.000000000000000039*Close[i+198]
 +0.000000000000000039*Close[i+199]
 -0.000000000000000039*Close[i+200]
 +0.000000000000000039*Close[i+201]
 -0.000000000000000039*Close[i+202]
 +0.000000000000000039*Close[i+203]
 -0.000000000000000039*Close[i+204]
 +0.000000000000000039*Close[i+205]
 -0.000000000000000039*Close[i+206]
 +0.000000000000000040*Close[i+207]
 -0.000000000000000040*Close[i+208]
 +0.000000000000000041*Close[i+209]
 -0.000000000000000039*Close[i+210]
 +0.000000000000000039*Close[i+211]
 -0.000000000000000040*Close[i+212]
 +0.000000000000000039*Close[i+213]
 -0.000000000000000039*Close[i+214]
 +0.000000000000000039*Close[i+215]
 -0.000000000000000040*Close[i+216]
 +0.000000000000000039*Close[i+217]
 -0.000000000000000040*Close[i+218]
 +0.000000000000000039*Close[i+219]
 -0.000000000000000040*Close[i+220]
 +0.000000000000000039*Close[i+221]
 -0.000000000000000040*Close[i+222]
 +0.000000000000000040*Close[i+223]
 -0.000000000000000040*Close[i+224]
 +0.000000000000000040*Close[i+225]
 -0.000000000000000040*Close[i+226]
 +0.000000000000000040*Close[i+227]
 -0.000000000000000040*Close[i+228]
 +0.000000000000000040*Close[i+229]
 -0.000000000000000040*Close[i+230]
 +0.000000000000000040*Close[i+231]
 -0.000000000000000040*Close[i+232]
 +0.000000000000000040*Close[i+233]
 -0.000000000000000040*Close[i+234]
 +0.000000000000000040*Close[i+235]
 -0.000000000000000040*Close[i+236]
 +0.000000000000000040*Close[i+237]
 -0.000000000000000040*Close[i+238]
 +0.000000000000000040*Close[i+239]
 -0.000000000000000040*Close[i+240]
 +0.000000000000000040*Close[i+241]
 -0.000000000000000040*Close[i+242]
 +0.000000000000000040*Close[i+243]
 -0.000000000000000040*Close[i+244]
 +0.000000000000000040*Close[i+245]
 -0.000000000000000040*Close[i+246]
 +0.000000000000000040*Close[i+247]
 -0.000000000000000040*Close[i+248]
 +0.000000000000000040*Close[i+249]
 -0.000000000000000040*Close[i+250]
 +0.000000000000000040*Close[i+251]
 -0.000000000000000041*Close[i+252]
 +0.000000000000000040*Close[i+253]
 -0.000000000000000040*Close[i+254]
 +0.000000000000000040*Close[i+255]
 -0.000000000000000040*Close[i+256]
 +0.000000000000000040*Close[i+257]
 -0.000000000000000040*Close[i+258]
 +0.000000000000000040*Close[i+259]
 -0.000000000000000040*Close[i+260]
 +0.000000000000000040*Close[i+261]
 -0.000000000000000040*Close[i+262]
 +0.000000000000000040*Close[i+263]
 -0.000000000000000040*Close[i+264]
 +0.000000000000000040*Close[i+265]
 -0.000000000000000040*Close[i+266]
 +0.000000000000000040*Close[i+267]
 -0.000000000000000040*Close[i+268]
 +0.000000000000000040*Close[i+269]
 -0.000000000000000040*Close[i+270]
 +0.000000000000000040*Close[i+271]
 -0.000000000000000040*Close[i+272]
 +0.000000000000000040*Close[i+273]
 -0.000000000000000040*Close[i+274]
 +0.000000000000000040*Close[i+275]
 -0.000000000000000040*Close[i+276]
 +0.000000000000000041*Close[i+277]
 -0.000000000000000040*Close[i+278]
 +0.000000000000000040*Close[i+279]
 -0.000000000000000041*Close[i+280]
 +0.000000000000000040*Close[i+281]
 -0.000000000000000040*Close[i+282]
 +0.000000000000000040*Close[i+283]
 -0.000000000000000041*Close[i+284]
 +0.000000000000000040*Close[i+285]
 -0.000000000000000040*Close[i+286]
 +0.000000000000000041*Close[i+287]
 -0.000000000000000040*Close[i+288]
 +0.000000000000000040*Close[i+289]
 -0.000000000000000040*Close[i+290]
 +0.000000000000000040*Close[i+291]
 -0.000000000000000040*Close[i+292]
 +0.000000000000000041*Close[i+293]
 -0.000000000000000040*Close[i+294]
 +0.000000000000000040*Close[i+295]
 -0.000000000000000041*Close[i+296]
 +0.000000000000000041*Close[i+297]
 -0.000000000000000040*Close[i+298]
 +0.000000000000000041*Close[i+299]
 -0.000000000000000040*Close[i+300]
 +0.000000000000000040*Close[i+301]
 -0.000000000000000041*Close[i+302]
 +0.000000000000000041*Close[i+303]
 -0.000000000000000040*Close[i+304]
 +0.000000000000000041*Close[i+305]
 -0.000000000000000041*Close[i+306]
 +0.000000000000000041*Close[i+307]
 -0.000000000000000041*Close[i+308]
 +0.000000000000000041*Close[i+309]
 -0.000000000000000041*Close[i+310]
 +0.000000000000000041*Close[i+311]
 -0.000000000000000041*Close[i+312]
 +0.000000000000000041*Close[i+313]
 -0.000000000000000041*Close[i+314]
 +0.000000000000000041*Close[i+315]
 -0.000000000000000041*Close[i+316]
 +0.000000000000000041*Close[i+317]
 -0.000000000000000041*Close[i+318]
 +0.000000000000000041*Close[i+319]
 -0.000000000000000041*Close[i+320]
 +0.000000000000000041*Close[i+321]
 -0.000000000000000041*Close[i+322]
 +0.000000000000000041*Close[i+323]
 -0.000000000000000041*Close[i+324]
 +0.000000000000000041*Close[i+325]
 -0.000000000000000041*Close[i+326]
 +0.000000000000000041*Close[i+327]
 -0.000000000000000041*Close[i+328]
 +0.000000000000000041*Close[i+329]
 -0.000000000000000041*Close[i+330]
 +0.000000000000000041*Close[i+331]
 -0.000000000000000041*Close[i+332]
 +0.000000000000000041*Close[i+333]
 -0.000000000000000041*Close[i+334]
 +0.000000000000000041*Close[i+335]
 -0.000000000000000041*Close[i+336]
 +0.000000000000000041*Close[i+337]
 -0.000000000000000041*Close[i+338]
 +0.000000000000000041*Close[i+339]
 -0.000000000000000042*Close[i+340]
 +0.000000000000000041*Close[i+341]
 -0.000000000000000041*Close[i+342]
 +0.000000000000000041*Close[i+343]
 -0.000000000000000041*Close[i+344]
 +0.000000000000000041*Close[i+345]
 -0.000000000000000041*Close[i+346]
 +0.000000000000000041*Close[i+347]
 -0.000000000000000043*Close[i+348]
 +0.000000000000000041*Close[i+349]
 -0.000000000000000041*Close[i+350]
 +0.000000000000000041*Close[i+351]
 -0.000000000000000041*Close[i+352]
 +0.000000000000000041*Close[i+353]
 -0.000000000000000041*Close[i+354]
 +0.000000000000000041*Close[i+355]
 -0.000000000000000041*Close[i+356]
 +0.000000000000000041*Close[i+357]
 -0.000000000000000042*Close[i+358]
 +0.000000000000000041*Close[i+359]
 -0.000000000000000042*Close[i+360]
 +0.000000000000000042*Close[i+361]
 -0.000000000000000042*Close[i+362]
 +0.000000000000000042*Close[i+363]
 -0.000000000000000042*Close[i+364]
 +0.000000000000000042*Close[i+365]
 -0.000000000000000042*Close[i+366]
 +0.000000000000000042*Close[i+367]
 -0.000000000000000042*Close[i+368]
 +0.000000000000000042*Close[i+369]
 -0.000000000000000042*Close[i+370]
 +0.000000000000000042*Close[i+371]
 -0.000000000000000042*Close[i+372]
 +0.000000000000000042*Close[i+373]
 -0.000000000000000042*Close[i+374]
 +0.000000000000000042*Close[i+375]
 -0.000000000000000041*Close[i+376]
 +0.000000000000000042*Close[i+377]
 -0.000000000000000042*Close[i+378]
 +0.000000000000000042*Close[i+379]
 -0.000000000000000042*Close[i+380]
 +0.000000000000000042*Close[i+381]
 -0.000000000000000043*Close[i+382]
 +0.000000000000000042*Close[i+383]
 -0.000000000000000042*Close[i+384]
 +0.000000000000000042*Close[i+385]
 -0.000000000000000042*Close[i+386]
 +0.000000000000000041*Close[i+387]
 -0.000000000000000042*Close[i+388]
 +0.000000000000000042*Close[i+389]
 -0.000000000000000042*Close[i+390]
 +0.000000000000000042*Close[i+391]
 -0.000000000000000042*Close[i+392]
 +0.000000000000000042*Close[i+393]
 -0.000000000000000042*Close[i+394]
 +0.000000000000000042*Close[i+395]
 -0.000000000000000042*Close[i+396]
 +0.000000000000000042*Close[i+397]
 -0.000000000000000042*Close[i+398]
 +0.000000000000000042*Close[i+399]
 -0.000000000000000042*Close[i+400]
 +0.000000000000000042*Close[i+401]
 -0.000000000000000042*Close[i+402]
 +0.000000000000000042*Close[i+403]
 -0.000000000000000042*Close[i+404]
 +0.000000000000000042*Close[i+405]
 -0.000000000000000043*Close[i+406]
 +0.000000000000000043*Close[i+407]
 -0.000000000000000042*Close[i+408]
 +0.000000000000000042*Close[i+409]
 -0.000000000000000043*Close[i+410]
 +0.000000000000000043*Close[i+411]
 -0.000000000000000042*Close[i+412]
 +0.000000000000000043*Close[i+413]
 -0.000000000000000042*Close[i+414]
 +0.000000000000000041*Close[i+415]
 -0.000000000000000043*Close[i+416]
 +0.000000000000000043*Close[i+417]
 -0.000000000000000042*Close[i+418]
 +0.000000000000000042*Close[i+419]
 -0.000000000000000043*Close[i+420]
 +0.000000000000000042*Close[i+421]
 -0.000000000000000043*Close[i+422]
 +0.000000000000000042*Close[i+423]
 -0.000000000000000043*Close[i+424]
 +0.000000000000000043*Close[i+425]
 -0.000000000000000043*Close[i+426]
 +0.000000000000000043*Close[i+427]
 -0.000000000000000043*Close[i+428]
 +0.000000000000000043*Close[i+429]
 -0.000000000000000043*Close[i+430]
 +0.000000000000000043*Close[i+431]
 -0.000000000000000043*Close[i+432]
 +0.000000000000000043*Close[i+433]
 -0.000000000000000043*Close[i+434]
 +0.000000000000000043*Close[i+435]
 -0.000000000000000043*Close[i+436]
 +0.000000000000000043*Close[i+437]
 -0.000000000000000043*Close[i+438]
 +0.000000000000000043*Close[i+439]
 -0.000000000000000043*Close[i+440]
 +0.000000000000000043*Close[i+441]
 -0.000000000000000043*Close[i+442]
 +0.000000000000000043*Close[i+443]
 -0.000000000000000043*Close[i+444]
 +0.000000000000000043*Close[i+445]
 -0.000000000000000043*Close[i+446]
 +0.000000000000000043*Close[i+447]
 -0.000000000000000043*Close[i+448]
 +0.000000000000000043*Close[i+449]
 -0.000000000000000047*Close[i+450]
 +0.000000000000000043*Close[i+451]
 -0.000000000000000044*Close[i+452]
 +0.000000000000000043*Close[i+453]
 -0.000000000000000043*Close[i+454]
 +0.000000000000000043*Close[i+455]
 -0.000000000000000043*Close[i+456]
 +0.000000000000000042*Close[i+457]
 -0.000000000000000043*Close[i+458]
 +0.000000000000000044*Close[i+459]
 -0.000000000000000043*Close[i+460]
 +0.000000000000000044*Close[i+461]
 -0.000000000000000044*Close[i+462]
 +0.000000000000000044*Close[i+463]
 -0.000000000000000044*Close[i+464]
 +0.000000000000000044*Close[i+465]
 -0.000000000000000044*Close[i+466]
 +0.000000000000000044*Close[i+467]
 -0.000000000000000044*Close[i+468]
 +0.000000000000000044*Close[i+469]
 -0.000000000000000044*Close[i+470]
 +0.000000000000000044*Close[i+471]
 -0.000000000000000044*Close[i+472]
 +0.000000000000000044*Close[i+473]
 -0.000000000000000044*Close[i+474]
 +0.000000000000000044*Close[i+475]
 -0.000000000000000044*Close[i+476]
 +0.000000000000000044*Close[i+477]
 -0.000000000000000044*Close[i+478]
 +0.000000000000000044*Close[i+479]
 -0.000000000000000044*Close[i+480]
 +0.000000000000000044*Close[i+481]
 -0.000000000000000045*Close[i+482]
 +0.000000000000000044*Close[i+483]
 -0.000000000000000044*Close[i+484]
 +0.000000000000000044*Close[i+485]
 -0.000000000000000044*Close[i+486]
 +0.000000000000000044*Close[i+487]
 -0.000000000000000044*Close[i+488]
 +0.000000000000000044*Close[i+489]
 -0.000000000000000044*Close[i+490]
 +0.000000000000000045*Close[i+491]
 -0.000000000000000044*Close[i+492]
 +0.000000000000000044*Close[i+493]
 -0.000000000000000044*Close[i+494]
 +0.000000000000000044*Close[i+495]
 -0.000000000000000044*Close[i+496]
 +0.000000000000000044*Close[i+497]
 -0.000000000000000045*Close[i+498]
 +0.000000000000000045*Close[i+499]
 -0.000000000000000044*Close[i+500]
 +0.000000000000000044*Close[i+501]
 -0.000000000000000044*Close[i+502]
 +0.000000000000000045*Close[i+503]
 -0.000000000000000045*Close[i+504]
 +0.000000000000000045*Close[i+505]
 -0.000000000000000045*Close[i+506]
 +0.000000000000000045*Close[i+507]
 -0.000000000000000044*Close[i+508]
 +0.000000000000000045*Close[i+509]
 -0.000000000000000045*Close[i+510]
 +0.000000000000000045*Close[i+511]
 -0.000000000000000045*Close[i+512]
 +0.000000000000000045*Close[i+513]
 -0.000000000000000045*Close[i+514]
 +0.000000000000000045*Close[i+515]
 -0.000000000000000045*Close[i+516]
 +0.000000000000000045*Close[i+517]
 -0.000000000000000045*Close[i+518]
 +0.000000000000000045*Close[i+519]
 -0.000000000000000045*Close[i+520]
 +0.000000000000000045*Close[i+521]
 -0.000000000000000043*Close[i+522]
 +0.000000000000000046*Close[i+523]
 -0.000000000000000045*Close[i+524]
 +0.000000000000000045*Close[i+525]
 -0.000000000000000045*Close[i+526]
 +0.000000000000000045*Close[i+527]
 -0.000000000000000045*Close[i+528]
 +0.000000000000000046*Close[i+529]
 -0.000000000000000045*Close[i+530]
 +0.000000000000000046*Close[i+531]
 -0.000000000000000046*Close[i+532]
 +0.000000000000000046*Close[i+533]
 -0.000000000000000046*Close[i+534]
 +0.000000000000000045*Close[i+535]
 -0.000000000000000046*Close[i+536]
 +0.000000000000000045*Close[i+537]
 -0.000000000000000046*Close[i+538]
 +0.000000000000000046*Close[i+539]
 -0.000000000000000046*Close[i+540]
 +0.000000000000000045*Close[i+541]
 -0.000000000000000046*Close[i+542]
 +0.000000000000000046*Close[i+543]
 -0.000000000000000046*Close[i+544]
 +0.000000000000000046*Close[i+545]
 -0.000000000000000046*Close[i+546]
 +0.000000000000000045*Close[i+547]
 -0.000000000000000046*Close[i+548]
 +0.000000000000000046*Close[i+549]
 -0.000000000000000046*Close[i+550]
 +0.000000000000000046*Close[i+551]
 -0.000000000000000046*Close[i+552]
 +0.000000000000000046*Close[i+553]
 -0.000000000000000046*Close[i+554]
 +0.000000000000000046*Close[i+555]
 -0.000000000000000046*Close[i+556]
 +0.000000000000000046*Close[i+557]
 -0.000000000000000044*Close[i+558]
 +0.000000000000000046*Close[i+559]
 -0.000000000000000046*Close[i+560]
 +0.000000000000000046*Close[i+561]
 -0.000000000000000046*Close[i+562]
 +0.000000000000000046*Close[i+563]
 -0.000000000000000046*Close[i+564]
 +0.000000000000000047*Close[i+565]
 -0.000000000000000047*Close[i+566]
 +0.000000000000000046*Close[i+567]
 -0.000000000000000047*Close[i+568]
 +0.000000000000000047*Close[i+569]
 -0.000000000000000047*Close[i+570]
 +0.000000000000000046*Close[i+571]
 -0.000000000000000047*Close[i+572]
 +0.000000000000000046*Close[i+573]
 -0.000000000000000047*Close[i+574]
 +0.000000000000000047*Close[i+575]
 -0.000000000000000047*Close[i+576]
 +0.000000000000000047*Close[i+577]
 -0.000000000000000047*Close[i+578]
 +0.000000000000000047*Close[i+579]
 -0.000000000000000046*Close[i+580]
 +0.000000000000000047*Close[i+581]
 -0.000000000000000047*Close[i+582]
 +0.000000000000000047*Close[i+583]
 -0.000000000000000047*Close[i+584]
 +0.000000000000000047*Close[i+585]
 -0.000000000000000047*Close[i+586]
 +0.000000000000000047*Close[i+587]
 -0.000000000000000047*Close[i+588]
 +0.000000000000000047*Close[i+589]
 -0.000000000000000048*Close[i+590]
 +0.000000000000000047*Close[i+591]
 -0.000000000000000048*Close[i+592]
 +0.000000000000000048*Close[i+593]
 -0.000000000000000048*Close[i+594]
 +0.000000000000000048*Close[i+595]
 -0.000000000000000049*Close[i+596]
 +0.000000000000000047*Close[i+597]
 -0.000000000000000047*Close[i+598]
 +0.000000000000000046*Close[i+599]
 -0.000000000000000048*Close[i+600]
 +0.000000000000000048*Close[i+601]
 -0.000000000000000048*Close[i+602]
 +0.000000000000000048*Close[i+603]
 -0.000000000000000048*Close[i+604]
 +0.000000000000000048*Close[i+605]
 -0.000000000000000048*Close[i+606]
 +0.000000000000000048*Close[i+607]
 -0.000000000000000048*Close[i+608]
 +0.000000000000000048*Close[i+609]
 -0.000000000000000048*Close[i+610]
 +0.000000000000000048*Close[i+611]
 -0.000000000000000048*Close[i+612]
 +0.000000000000000048*Close[i+613]
 -0.000000000000000048*Close[i+614]
 +0.000000000000000048*Close[i+615]
 -0.000000000000000048*Close[i+616]
 +0.000000000000000048*Close[i+617]
 -0.000000000000000048*Close[i+618]
 +0.000000000000000048*Close[i+619]
 -0.000000000000000048*Close[i+620]
 +0.000000000000000048*Close[i+621]
 -0.000000000000000049*Close[i+622]
 +0.000000000000000049*Close[i+623]
 -0.000000000000000049*Close[i+624]
 +0.000000000000000049*Close[i+625]
 -0.000000000000000048*Close[i+626]
 +0.000000000000000049*Close[i+627]
 -0.000000000000000052*Close[i+628]
 +0.000000000000000049*Close[i+629]
 -0.000000000000000049*Close[i+630]
 +0.000000000000000049*Close[i+631]
 -0.000000000000000049*Close[i+632]
 +0.000000000000000049*Close[i+633]
 -0.000000000000000049*Close[i+634]
 +0.000000000000000049*Close[i+635]
 -0.000000000000000049*Close[i+636]
 +0.000000000000000049*Close[i+637]
 -0.000000000000000049*Close[i+638]
 +0.000000000000000049*Close[i+639]
 -0.000000000000000049*Close[i+640]
 +0.000000000000000049*Close[i+641]
 -0.000000000000000049*Close[i+642]
 +0.000000000000000049*Close[i+643]
 -0.000000000000000049*Close[i+644]
 +0.000000000000000049*Close[i+645]
 -0.000000000000000049*Close[i+646]
 +0.000000000000000050*Close[i+647]
 -0.000000000000000050*Close[i+648]
 +0.000000000000000050*Close[i+649]
 -0.000000000000000049*Close[i+650]
 +0.000000000000000050*Close[i+651]
 -0.000000000000000050*Close[i+652]
 +0.000000000000000050*Close[i+653]
 -0.000000000000000050*Close[i+654]
 +0.000000000000000050*Close[i+655]
 -0.000000000000000050*Close[i+656]
 +0.000000000000000050*Close[i+657]
 -0.000000000000000049*Close[i+658]
 +0.000000000000000050*Close[i+659]
 -0.000000000000000050*Close[i+660]
 +0.000000000000000050*Close[i+661]
 -0.000000000000000051*Close[i+662]
 +0.000000000000000050*Close[i+663]
 -0.000000000000000050*Close[i+664]
 +0.000000000000000050*Close[i+665]
 -0.000000000000000050*Close[i+666]
 +0.000000000000000051*Close[i+667]
 -0.000000000000000049*Close[i+668]
 +0.000000000000000052*Close[i+669]
 -0.000000000000000047*Close[i+670]
 +0.000000000000000050*Close[i+671]
 -0.000000000000000051*Close[i+672]
 +0.000000000000000050*Close[i+673]
 -0.000000000000000050*Close[i+674]
 +0.000000000000000050*Close[i+675]
 -0.000000000000000050*Close[i+676]
 +0.000000000000000050*Close[i+677]
 -0.000000000000000050*Close[i+678]
 +0.000000000000000051*Close[i+679]
 -0.000000000000000051*Close[i+680]
 +0.000000000000000050*Close[i+681]
 -0.000000000000000051*Close[i+682]
 +0.000000000000000051*Close[i+683]
 -0.000000000000000050*Close[i+684]
 +0.000000000000000051*Close[i+685]
 -0.000000000000000051*Close[i+686]
 +0.000000000000000051*Close[i+687]
 -0.000000000000000052*Close[i+688]
 +0.000000000000000051*Close[i+689]
 -0.000000000000000051*Close[i+690]
 +0.000000000000000052*Close[i+691]
 -0.000000000000000052*Close[i+692]
 +0.000000000000000051*Close[i+693]
 -0.000000000000000052*Close[i+694]
 +0.000000000000000051*Close[i+695]
 -0.000000000000000050*Close[i+696]
 +0.000000000000000050*Close[i+697]
 -0.000000000000000051*Close[i+698]
 +0.000000000000000052*Close[i+699]
 -0.000000000000000052*Close[i+700]
 +0.000000000000000052*Close[i+701]
 -0.000000000000000052*Close[i+702]
 +0.000000000000000052*Close[i+703]
 -0.000000000000000052*Close[i+704]
 +0.000000000000000051*Close[i+705]
 -0.000000000000000053*Close[i+706]
 +0.000000000000000052*Close[i+707]
 -0.000000000000000052*Close[i+708]
 +0.000000000000000053*Close[i+709]
 -0.000000000000000052*Close[i+710]
 +0.000000000000000052*Close[i+711]
 -0.000000000000000053*Close[i+712]
 +0.000000000000000052*Close[i+713]
 -0.000000000000000052*Close[i+714]
 +0.000000000000000053*Close[i+715]
 -0.000000000000000053*Close[i+716]
 +0.000000000000000052*Close[i+717]
 -0.000000000000000053*Close[i+718]
 +0.000000000000000052*Close[i+719]
 -0.000000000000000053*Close[i+720]
 +0.000000000000000051*Close[i+721]
 -0.000000000000000053*Close[i+722]
 +0.000000000000000053*Close[i+723]
 -0.000000000000000053*Close[i+724]
 +0.000000000000000054*Close[i+725]
 -0.000000000000000053*Close[i+726]
 +0.000000000000000053*Close[i+727]
 -0.000000000000000055*Close[i+728]
 +0.000000000000000053*Close[i+729]
 -0.000000000000000053*Close[i+730]
 +0.000000000000000053*Close[i+731]
 -0.000000000000000054*Close[i+732]
 +0.000000000000000053*Close[i+733]
 -0.000000000000000053*Close[i+734]
 +0.000000000000000053*Close[i+735]
 -0.000000000000000053*Close[i+736]
 +0.000000000000000054*Close[i+737]
 -0.000000000000000054*Close[i+738]
 +0.000000000000000054*Close[i+739]
 -0.000000000000000054*Close[i+740]
 +0.000000000000000054*Close[i+741]
 -0.000000000000000053*Close[i+742]
 +0.000000000000000054*Close[i+743]
 -0.000000000000000053*Close[i+744]
 +0.000000000000000054*Close[i+745]
 -0.000000000000000053*Close[i+746]
 +0.000000000000000054*Close[i+747]
 -0.000000000000000054*Close[i+748]
 +0.000000000000000053*Close[i+749]
 -0.000000000000000054*Close[i+750]
 +0.000000000000000054*Close[i+751]
 -0.000000000000000054*Close[i+752]
 +0.000000000000000054*Close[i+753]
 -0.000000000000000054*Close[i+754]
 +0.000000000000000054*Close[i+755]
 -0.000000000000000055*Close[i+756]
 +0.000000000000000055*Close[i+757]
 -0.000000000000000054*Close[i+758]
 +0.000000000000000055*Close[i+759]
 -0.000000000000000056*Close[i+760]
 +0.000000000000000055*Close[i+761]
 -0.000000000000000052*Close[i+762]
 +0.000000000000000054*Close[i+763]
 -0.000000000000000056*Close[i+764]
 +0.000000000000000054*Close[i+765]
 -0.000000000000000054*Close[i+766]
 +0.000000000000000055*Close[i+767]
 -0.000000000000000055*Close[i+768]
 +0.000000000000000055*Close[i+769]
 -0.000000000000000055*Close[i+770]
 +0.000000000000000055*Close[i+771]
 -0.000000000000000055*Close[i+772]
 +0.000000000000000056*Close[i+773]
 -0.000000000000000055*Close[i+774]
 +0.000000000000000054*Close[i+775]
 -0.000000000000000055*Close[i+776]
 +0.000000000000000056*Close[i+777]
 -0.000000000000000055*Close[i+778]
 +0.000000000000000056*Close[i+779]
 -0.000000000000000056*Close[i+780]
 +0.000000000000000056*Close[i+781]
 -0.000000000000000056*Close[i+782]
 +0.000000000000000056*Close[i+783]
 -0.000000000000000056*Close[i+784]
 +0.000000000000000056*Close[i+785]
 -0.000000000000000056*Close[i+786]
 +0.000000000000000056*Close[i+787]
 -0.000000000000000056*Close[i+788]
 +0.000000000000000056*Close[i+789]
 -0.000000000000000056*Close[i+790]
 +0.000000000000000056*Close[i+791]
 -0.000000000000000057*Close[i+792]
 +0.000000000000000056*Close[i+793]
 -0.000000000000000057*Close[i+794]
 +0.000000000000000056*Close[i+795]
 -0.000000000000000056*Close[i+796]
 +0.000000000000000055*Close[i+797]
 -0.000000000000000057*Close[i+798]
 +0.000000000000000057*Close[i+799]
 -0.000000000000000057*Close[i+800]
 +0.000000000000000057*Close[i+801]
 -0.000000000000000057*Close[i+802]
 +0.000000000000000057*Close[i+803]
 -0.000000000000000059*Close[i+804]
 +0.000000000000000058*Close[i+805]
 -0.000000000000000057*Close[i+806]
 +0.000000000000000062*Close[i+807]
 -0.000000000000000056*Close[i+808]
 +0.000000000000000058*Close[i+809]
 -0.000000000000000058*Close[i+810]
 +0.000000000000000058*Close[i+811]
 -0.000000000000000058*Close[i+812]
 +0.000000000000000057*Close[i+813]
 -0.000000000000000057*Close[i+814]
 +0.000000000000000058*Close[i+815]
 -0.000000000000000058*Close[i+816]
 +0.000000000000000058*Close[i+817]
 -0.000000000000000058*Close[i+818]
 +0.000000000000000059*Close[i+819]
 -0.000000000000000058*Close[i+820]
 +0.000000000000000058*Close[i+821]
 -0.000000000000000058*Close[i+822]
 +0.000000000000000058*Close[i+823]
 -0.000000000000000058*Close[i+824]
 +0.000000000000000059*Close[i+825]
 -0.000000000000000058*Close[i+826]
 +0.000000000000000058*Close[i+827]
 -0.000000000000000059*Close[i+828]
 +0.000000000000000059*Close[i+829]
 -0.000000000000000059*Close[i+830]
 +0.000000000000000059*Close[i+831]
 -0.000000000000000059*Close[i+832]
 +0.000000000000000059*Close[i+833]
 -0.000000000000000059*Close[i+834]
 +0.000000000000000059*Close[i+835]
 -0.000000000000000059*Close[i+836]
 +0.000000000000000060*Close[i+837]
 -0.000000000000000058*Close[i+838]
 +0.000000000000000060*Close[i+839]
 -0.000000000000000059*Close[i+840]
 +0.000000000000000062*Close[i+841]
 -0.000000000000000060*Close[i+842]
 +0.000000000000000060*Close[i+843]
 -0.000000000000000059*Close[i+844]
 +0.000000000000000062*Close[i+845]
 -0.000000000000000060*Close[i+846]
 +0.000000000000000060*Close[i+847]
 -0.000000000000000060*Close[i+848]
 +0.000000000000000060*Close[i+849]
 -0.000000000000000060*Close[i+850]
 +0.000000000000000061*Close[i+851]
 -0.000000000000000061*Close[i+852]
 +0.000000000000000060*Close[i+853]
 -0.000000000000000061*Close[i+854]
 +0.000000000000000060*Close[i+855]
 -0.000000000000000061*Close[i+856]
 +0.000000000000000061*Close[i+857];
FilterBuffer[i]=response;

i--;
}
return(0);
}

